Optional Vtable.f

: vfunc
   dup create , cell+ does> @ + @ execute ;

0 value dest-vtable

: v: ( -- <vfunc> )
  ' :noname swap >body @ dest-vtable + ! ;

: noops,   0 do ['] noop , loop ;

: vtable,   4 / noops, ;

: implement ( addr -- )
  to dest-vtable ;
